ORG100H
LDSP,3D00H
LDBC,11CH
LDD,0
EXOS16
LDC,0FAH
EXOS25
LDA,0FAH
OUT(0B2H),A
LDC,0FCH
EXOS25
LDA,0FCH
OUT(0B1H),A
LDA,192
LDDE,4000H
EXX
LDDE,4000H
LDHL,4004H
LDBC,13
L1EXAF,AF'
EXX
LDHL,LIN1
LDBC,16
LDIR
EXX
LD(HL),E
INCHL
LDA,D
RRA
RRA
RRA
AND3
OR58H
LD(HL),A
INCHL
LD(HL),E
INCHL
LD(HL),D
ADDHL,BC
INCD
LDA,D
AND7
JRNZ,L2
LDA,E
ADDA,32
LDE,A
CCF
SBCA,A
AND0F8H
ADDA,D
LDD,A
L2EXAF,AF'
DECA
JRNZ,L1
EXX
LDHL,SYNC
LDBC,HOSSZ
LDIR
XORA
OUT(82H),A
LDA,192
OUT(83H),A
LDC,0FDH
EXOS25
LDC,0FBH
EXOS25
LDA,0FBH
OUT(0B3H),A
LDA,0FDH
OUT(0B1H),A
LDA,1
LDDE,NEV1
EXOS1
LDDE,4000H
LDBC,1B00H
LDA,1
EXOS6
LDA,1
EXOS3
LDA,1
LDDE,NEV2
EXOS1
LDDE,5B00H
LDBC,-5B00H
LDA,1
EXOS6
LDA,1
EXOS3
LDA,48
OUT(0B4H),A
DI
lda,18h
out(0a8h),a
out(0ach),a
LDA,0C3H
LDHL,INT
LD(38H),A
ld(39h),hl
LD(8D2FH),A
LDHL,JOY
LD(8D30H),HL
NNN1JP07053H
nev1db3
defm"SCR"
intld(ament+1),a
LDA,30H
OUT(0B4H),A
amentlda,0
intvegjpreturn
returnei
ret
joyld(hlm+1),hl
ld(dem+1),de
lda,12h
ld(8d2eh),a
lda,0fh
ld(ad1+1),a
ld(ad2+1),a
ldc,0b5h
ldd,a
lde,a
ldhl,joytab
jclda,(hl)
adda,5
out(c),a
ina,(0b6h)
rra
rle
outi
ina,(0b6h)
rra
rld
outi
ina,(c)
and(hl)
cp(hl)
ccf
ad1lda,0
rla
ld(ad1+1),a
inchl
outi
ina,(c)
and(hl)
cp(hl)
ccf
ad2lda,0
rla
ld(ad2+1),a
inchl
jrnc,jc
andd
ande
ldd,a
lda,(ad1+1)
andd
ldd,a
outi
ina,(c)
and(hl)
jrnz,j1
res6,d
j1inchl
outi
ina,(c)
and(hl)
jrnz,j2
res7,d
j2ldb,d
lda,d
demldde,0
hlmldhl,0
ret
joytabDB0,8,40H,8,40H
DB1,7,8,2,2
DB2,7,2,1,40H
DB3,7,20H,9,4
DB4,7,4,9,10H
DB7,10H,5,1
NEV2DEFBLIN1-$-1
DEFM"PRG"
LIN1DEFB255,14H,15,2FH,0,0,0,0
DEFB0,32,72,104,144,176,216,248
SYNCDEFB0FEH,02H,0,0,0,0,0,0
DEFB0,0,0,0,0,0,0,0
DEFB0E5H,52H,3FH,0,0,0,0,0
DEFB0,0,0,0,0,0,0,0
DEFB226,92H,63,0,0,0,0,0
DEFB0,0,0,0,0,0,0,0
DEFB253,16,63,0,0,0,0,0
DEFB0,0,0,0,0,0,0,0
DEFB252,16,6,63,0,0,0,0
DEFB0,0,0,0,0,0,0,0
DEFB255,16,63,32,0,0,0,0
DEFB0,0,0,0,0,0,0,0
DEFB252,12H,6,63,0,0,0,0
DEFB0,0,0,0,0,0,0,0
DEFB207,13H,63,0,0,0,0,0
DEFB0,0,0,0,0,0,0,0
HOSSZEQU$-SYNC
NOP
ende